﻿Type=Class
Version=6
ModulesStructureVersion=1
B4A=true
@EndOfDesignText@
'sdk版
Sub Class_Globals
End Sub

'根据高德地图uri文档编写，实现了简单的调用功能
Public Sub Initialize
	
End Sub

Public Sub BiaoZhuSingle(tecobj As Teacher,title As String)
	Dim amap As clsAMapUri
	amap.Initialize
	Dim lst As List
	lst.Initialize
	Dim tp As MapPoint
	tp.Initialize
	tp.lat=tecobj.lat
	tp.lng=tecobj.lng
	tp.poiname=tecobj.nickname
	tp.tag=tecobj
	lst.Add(tp)
	BiaoZhu(lst,title)
End Sub
'调用标注功能
'多点标注，只有web api支持 
'坐标点可以这里采集：http://lbs.amap.com/console/show/picker
Public Sub BiaoZhu(mplst As List,title As String)
	If mplst.IsInitialized=False Or mplst.Size=0 Then Return
	CallSubDelayed3(actMapViewer,"biaozhu",mplst,title)
End Sub
public Sub CallAMapAppWithUri(uri As String) As Boolean
	Dim i As Intent
	i.Initialize(i.ACTION_VIEW,uri)
	i.AddCategory("android.intent.category.DEFAULT")
	i.SetComponent("com.autonavi.minimap")
	Try
		StartActivity(i)	
	Catch
		Log(LastException.Message)
		Return False
	End Try
	Return True
End Sub